home *** CD-ROM | disk | FTP | other *** search
/ Kompuutteri K-CD 2002 #1 / K-CD_2002-01.iso / Delphi / INSTALL / program files / Borland / Delphi6 / Source / Rtl / Win / Messages.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-05-22  |  44.6 KB  |  1,809 lines
  1. { *********************************************************************** }
  2. {                                                                         }
  3. { Delphi Runtime Library                                                  }
  4. {                                                                         }
  5. { Copyright (c) 1991-2001 Borland Software Corporation                    }
  6. {                                                                         }
  7. { *********************************************************************** }
  8.  
  9. {*******************************************************}
  10. {       Windows Messages and Types                      }
  11. {*******************************************************}
  12.  
  13. unit Messages;
  14.  
  15. {$A-}
  16. {$WEAKPACKAGEUNIT}
  17.  
  18. interface
  19.  
  20. uses Windows;
  21.  
  22. { Window Messages }
  23.  
  24. const
  25.   {$EXTERNALSYM WM_NULL}
  26.   WM_NULL             = $0000;
  27.   {$EXTERNALSYM WM_CREATE}
  28.   WM_CREATE           = $0001;
  29.   {$EXTERNALSYM WM_DESTROY}
  30.   WM_DESTROY          = $0002;
  31.   {$EXTERNALSYM WM_MOVE}
  32.   WM_MOVE             = $0003;
  33.   {$EXTERNALSYM WM_SIZE}
  34.   WM_SIZE             = $0005;
  35.   {$EXTERNALSYM WM_ACTIVATE}
  36.   WM_ACTIVATE         = $0006;
  37.   {$EXTERNALSYM WM_SETFOCUS}
  38.   WM_SETFOCUS         = $0007;
  39.   {$EXTERNALSYM WM_KILLFOCUS}
  40.   WM_KILLFOCUS        = $0008;
  41.   {$EXTERNALSYM WM_ENABLE}
  42.   WM_ENABLE           = $000A;
  43.   {$EXTERNALSYM WM_SETREDRAW}
  44.   WM_SETREDRAW        = $000B;
  45.   {$EXTERNALSYM WM_SETTEXT}
  46.   WM_SETTEXT          = $000C;
  47.   {$EXTERNALSYM WM_GETTEXT}
  48.   WM_GETTEXT          = $000D;
  49.   {$EXTERNALSYM WM_GETTEXTLENGTH}
  50.   WM_GETTEXTLENGTH    = $000E;
  51.   {$EXTERNALSYM WM_PAINT}
  52.   WM_PAINT            = $000F;
  53.   {$EXTERNALSYM WM_CLOSE}
  54.   WM_CLOSE            = $0010;
  55.   {$EXTERNALSYM WM_QUERYENDSESSION}
  56.   WM_QUERYENDSESSION  = $0011;
  57.   {$EXTERNALSYM WM_QUIT}
  58.   WM_QUIT             = $0012;
  59.   {$EXTERNALSYM WM_QUERYOPEN}
  60.   WM_QUERYOPEN        = $0013;
  61.   {$EXTERNALSYM WM_ERASEBKGND}
  62.   WM_ERASEBKGND       = $0014;
  63.   {$EXTERNALSYM WM_SYSCOLORCHANGE}
  64.   WM_SYSCOLORCHANGE   = $0015;
  65.   {$EXTERNALSYM WM_ENDSESSION}
  66.   WM_ENDSESSION       = $0016;
  67.   {$EXTERNALSYM WM_SYSTEMERROR}
  68.   WM_SYSTEMERROR      = $0017;
  69.   {$EXTERNALSYM WM_SHOWWINDOW}
  70.   WM_SHOWWINDOW       = $0018;
  71.   {$EXTERNALSYM WM_CTLCOLOR}
  72.   WM_CTLCOLOR         = $0019;
  73.   {$EXTERNALSYM WM_WININICHANGE}
  74.   WM_WININICHANGE     = $001A;
  75.   {$EXTERNALSYM WM_SETTINGCHANGE}
  76.   WM_SETTINGCHANGE = WM_WININICHANGE;
  77.   {$EXTERNALSYM WM_DEVMODECHANGE}
  78.   WM_DEVMODECHANGE    = $001B;
  79.   {$EXTERNALSYM WM_ACTIVATEAPP}
  80.   WM_ACTIVATEAPP      = $001C;
  81.   {$EXTERNALSYM WM_FONTCHANGE}
  82.   WM_FONTCHANGE       = $001D;
  83.   {$EXTERNALSYM WM_TIMECHANGE}
  84.   WM_TIMECHANGE       = $001E;
  85.   {$EXTERNALSYM WM_CANCELMODE}
  86.   WM_CANCELMODE       = $001F;
  87.   {$EXTERNALSYM WM_SETCURSOR}
  88.   WM_SETCURSOR        = $0020;
  89.   {$EXTERNALSYM WM_MOUSEACTIVATE}
  90.   WM_MOUSEACTIVATE    = $0021;
  91.   {$EXTERNALSYM WM_CHILDACTIVATE}
  92.   WM_CHILDACTIVATE    = $0022;
  93.   {$EXTERNALSYM WM_QUEUESYNC}
  94.   WM_QUEUESYNC        = $0023;
  95.   {$EXTERNALSYM WM_GETMINMAXINFO}
  96.   WM_GETMINMAXINFO    = $0024;
  97.   {$EXTERNALSYM WM_PAINTICON}
  98.   WM_PAINTICON        = $0026;
  99.   {$EXTERNALSYM WM_ICONERASEBKGND}
  100.   WM_ICONERASEBKGND   = $0027;
  101.   {$EXTERNALSYM WM_NEXTDLGCTL}
  102.   WM_NEXTDLGCTL       = $0028;
  103.   {$EXTERNALSYM WM_SPOOLERSTATUS}
  104.   WM_SPOOLERSTATUS    = $002A;
  105.   {$EXTERNALSYM WM_DRAWITEM}
  106.   WM_DRAWITEM         = $002B;
  107.   {$EXTERNALSYM WM_MEASUREITEM}
  108.   WM_MEASUREITEM      = $002C;
  109.   {$EXTERNALSYM WM_DELETEITEM}
  110.   WM_DELETEITEM       = $002D;
  111.   {$EXTERNALSYM WM_VKEYTOITEM}
  112.   WM_VKEYTOITEM       = $002E;
  113.   {$EXTERNALSYM WM_CHARTOITEM}
  114.   WM_CHARTOITEM       = $002F;
  115.   {$EXTERNALSYM WM_SETFONT}
  116.   WM_SETFONT          = $0030;
  117.   {$EXTERNALSYM WM_GETFONT}
  118.   WM_GETFONT          = $0031;
  119.   {$EXTERNALSYM WM_SETHOTKEY}
  120.   WM_SETHOTKEY        = $0032;
  121.   {$EXTERNALSYM WM_GETHOTKEY}
  122.   WM_GETHOTKEY        = $0033;
  123.   {$EXTERNALSYM WM_QUERYDRAGICON}
  124.   WM_QUERYDRAGICON    = $0037;
  125.   {$EXTERNALSYM WM_COMPAREITEM}
  126.   WM_COMPAREITEM      = $0039;
  127.   {$EXTERNALSYM WM_GETOBJECT}
  128.   WM_GETOBJECT        = $003D;
  129.   {$EXTERNALSYM WM_COMPACTING}
  130.   WM_COMPACTING       = $0041;
  131.  
  132.   {$EXTERNALSYM WM_COMMNOTIFY}
  133.   WM_COMMNOTIFY       = $0044;    { obsolete in Win32}
  134.  
  135.   {$EXTERNALSYM WM_WINDOWPOSCHANGING}
  136.   WM_WINDOWPOSCHANGING = $0046;
  137.   {$EXTERNALSYM WM_WINDOWPOSCHANGED}
  138.   WM_WINDOWPOSCHANGED = $0047;
  139.   {$EXTERNALSYM WM_POWER}
  140.   WM_POWER            = $0048;
  141.  
  142.   {$EXTERNALSYM WM_COPYDATA}
  143.   WM_COPYDATA         = $004A;
  144.   {$EXTERNALSYM WM_CANCELJOURNAL}
  145.   WM_CANCELJOURNAL    = $004B;
  146.   {$EXTERNALSYM WM_NOTIFY}
  147.   WM_NOTIFY           = $004E;
  148.   {$EXTERNALSYM WM_INPUTLANGCHANGEREQUEST}
  149.   WM_INPUTLANGCHANGEREQUEST = $0050;
  150.   {$EXTERNALSYM WM_INPUTLANGCHANGE}
  151.   WM_INPUTLANGCHANGE  = $0051;
  152.   {$EXTERNALSYM WM_TCARD}
  153.   WM_TCARD            = $0052;
  154.   {$EXTERNALSYM WM_HELP}
  155.   WM_HELP             = $0053;
  156.   {$EXTERNALSYM WM_USERCHANGED}
  157.   WM_USERCHANGED      = $0054;
  158.   {$EXTERNALSYM WM_NOTIFYFORMAT}
  159.   WM_NOTIFYFORMAT     = $0055;
  160.  
  161.   {$EXTERNALSYM WM_CONTEXTMENU}
  162.   WM_CONTEXTMENU      = $007B;
  163.   {$EXTERNALSYM WM_STYLECHANGING}
  164.   WM_STYLECHANGING    = $007C;
  165.   {$EXTERNALSYM WM_STYLECHANGED}
  166.   WM_STYLECHANGED     = $007D;
  167.   {$EXTERNALSYM WM_DISPLAYCHANGE}
  168.   WM_DISPLAYCHANGE    = $007E;
  169.   {$EXTERNALSYM WM_GETICON}
  170.   WM_GETICON          = $007F;
  171.   {$EXTERNALSYM WM_SETICON}
  172.   WM_SETICON          = $0080;
  173.  
  174.   {$EXTERNALSYM WM_NCCREATE}
  175.   WM_NCCREATE         = $0081;
  176.   {$EXTERNALSYM WM_NCDESTROY}
  177.   WM_NCDESTROY        = $0082;
  178.   {$EXTERNALSYM WM_NCCALCSIZE}
  179.   WM_NCCALCSIZE       = $0083;
  180.   {$EXTERNALSYM WM_NCHITTEST}
  181.   WM_NCHITTEST        = $0084;
  182.   {$EXTERNALSYM WM_NCPAINT}
  183.   WM_NCPAINT          = $0085;
  184.   {$EXTERNALSYM WM_NCACTIVATE}
  185.   WM_NCACTIVATE       = $0086;
  186.   {$EXTERNALSYM WM_GETDLGCODE}
  187.   WM_GETDLGCODE       = $0087;
  188.   {$EXTERNALSYM WM_NCMOUSEMOVE}
  189.   WM_NCMOUSEMOVE      = $00A0;
  190.   {$EXTERNALSYM WM_NCLBUTTONDOWN}
  191.   WM_NCLBUTTONDOWN    = $00A1;
  192.   {$EXTERNALSYM WM_NCLBUTTONUP}
  193.   WM_NCLBUTTONUP      = $00A2;
  194.   {$EXTERNALSYM WM_NCLBUTTONDBLCLK}
  195.   WM_NCLBUTTONDBLCLK  = $00A3;
  196.   {$EXTERNALSYM WM_NCRBUTTONDOWN}
  197.   WM_NCRBUTTONDOWN    = $00A4;
  198.   {$EXTERNALSYM WM_NCRBUTTONUP}
  199.   WM_NCRBUTTONUP      = $00A5;
  200.   {$EXTERNALSYM WM_NCRBUTTONDBLCLK}
  201.   WM_NCRBUTTONDBLCLK  = $00A6;
  202.   {$EXTERNALSYM WM_NCMBUTTONDOWN}
  203.   WM_NCMBUTTONDOWN    = $00A7;
  204.   {$EXTERNALSYM WM_NCMBUTTONUP}
  205.   WM_NCMBUTTONUP      = $00A8;
  206.   {$EXTERNALSYM WM_NCMBUTTONDBLCLK}
  207.   WM_NCMBUTTONDBLCLK  = $00A9;
  208.  
  209.   {$EXTERNALSYM WM_KEYFIRST}
  210.   WM_KEYFIRST         = $0100;
  211.   {$EXTERNALSYM WM_KEYDOWN}
  212.   WM_KEYDOWN          = $0100;
  213.   {$EXTERNALSYM WM_KEYUP}
  214.   WM_KEYUP            = $0101;
  215.   {$EXTERNALSYM WM_CHAR}
  216.   WM_CHAR             = $0102;
  217.   {$EXTERNALSYM WM_DEADCHAR}
  218.   WM_DEADCHAR         = $0103;
  219.   {$EXTERNALSYM WM_SYSKEYDOWN}
  220.   WM_SYSKEYDOWN       = $0104;
  221.   {$EXTERNALSYM WM_SYSKEYUP}
  222.   WM_SYSKEYUP         = $0105;
  223.   {$EXTERNALSYM WM_SYSCHAR}
  224.   WM_SYSCHAR          = $0106;
  225.   {$EXTERNALSYM WM_SYSDEADCHAR}
  226.   WM_SYSDEADCHAR      = $0107;
  227.   {$EXTERNALSYM WM_KEYLAST}
  228.   WM_KEYLAST          = $0108;
  229.  
  230.   {$EXTERNALSYM WM_INITDIALOG}
  231.   WM_INITDIALOG       = $0110;
  232.   {$EXTERNALSYM WM_COMMAND}
  233.   WM_COMMAND          = $0111;
  234.   {$EXTERNALSYM WM_SYSCOMMAND}
  235.   WM_SYSCOMMAND       = $0112;
  236.   {$EXTERNALSYM WM_TIMER}
  237.   WM_TIMER            = $0113;
  238.   {$EXTERNALSYM WM_HSCROLL}
  239.   WM_HSCROLL          = $0114;
  240.   {$EXTERNALSYM WM_VSCROLL}
  241.   WM_VSCROLL          = $0115;
  242.   {$EXTERNALSYM WM_INITMENU}
  243.   WM_INITMENU         = $0116;
  244.   {$EXTERNALSYM WM_INITMENUPOPUP}
  245.   WM_INITMENUPOPUP    = $0117;
  246.   {$EXTERNALSYM WM_MENUSELECT}
  247.   WM_MENUSELECT       = $011F;
  248.   {$EXTERNALSYM WM_MENUCHAR}
  249.   WM_MENUCHAR         = $0120;
  250.   {$EXTERNALSYM WM_ENTERIDLE}
  251.   WM_ENTERIDLE        = $0121;
  252.  
  253.   {$EXTERNALSYM WM_MENURBUTTONUP}
  254.   WM_MENURBUTTONUP    = $0122;
  255.   {$EXTERNALSYM WM_MENUDRAG}
  256.   WM_MENUDRAG         = $0123;
  257.   {$EXTERNALSYM WM_MENUGETOBJECT}
  258.   WM_MENUGETOBJECT    = $0124;
  259.   {$EXTERNALSYM WM_UNINITMENUPOPUP}
  260.   WM_UNINITMENUPOPUP  = $0125;
  261.   {$EXTERNALSYM WM_MENUCOMMAND}
  262.   WM_MENUCOMMAND      = $0126;
  263.  
  264.   {$EXTERNALSYM WM_CHANGEUISTATE}
  265.   WM_CHANGEUISTATE    = $0127;
  266.   {$EXTERNALSYM WM_UPDATEUISTATE}
  267.   WM_UPDATEUISTATE    = $0128;
  268.   {$EXTERNALSYM WM_QUERYUISTATE}
  269.   WM_QUERYUISTATE     = $0129;
  270.  
  271.   {$EXTERNALSYM WM_CTLCOLORMSGBOX}
  272.   WM_CTLCOLORMSGBOX   = $0132;
  273.   {$EXTERNALSYM WM_CTLCOLOREDIT}
  274.   WM_CTLCOLOREDIT     = $0133;
  275.   {$EXTERNALSYM WM_CTLCOLORLISTBOX}
  276.   WM_CTLCOLORLISTBOX  = $0134;
  277.   {$EXTERNALSYM WM_CTLCOLORBTN}
  278.   WM_CTLCOLORBTN      = $0135;
  279.   {$EXTERNALSYM WM_CTLCOLORDLG}
  280.   WM_CTLCOLORDLG      = $0136;
  281.   {$EXTERNALSYM WM_CTLCOLORSCROLLBAR}
  282.   WM_CTLCOLORSCROLLBAR= $0137;
  283.   {$EXTERNALSYM WM_CTLCOLORSTATIC}
  284.   WM_CTLCOLORSTATIC   = $0138;
  285.  
  286.   {$EXTERNALSYM WM_MOUSEFIRST}
  287.   WM_MOUSEFIRST       = $0200;
  288.   {$EXTERNALSYM WM_MOUSEMOVE}
  289.   WM_MOUSEMOVE        = $0200;
  290.   {$EXTERNALSYM WM_LBUTTONDOWN}
  291.   WM_LBUTTONDOWN      = $0201;
  292.   {$EXTERNALSYM WM_LBUTTONUP}
  293.   WM_LBUTTONUP        = $0202;
  294.   {$EXTERNALSYM WM_LBUTTONDBLCLK}
  295.   WM_LBUTTONDBLCLK    = $0203;
  296.   {$EXTERNALSYM WM_RBUTTONDOWN}
  297.   WM_RBUTTONDOWN      = $0204;
  298.   {$EXTERNALSYM WM_RBUTTONUP}
  299.   WM_RBUTTONUP        = $0205;
  300.   {$EXTERNALSYM WM_RBUTTONDBLCLK}
  301.   WM_RBUTTONDBLCLK    = $0206;
  302.   {$EXTERNALSYM WM_MBUTTONDOWN}
  303.   WM_MBUTTONDOWN      = $0207;
  304.   {$EXTERNALSYM WM_MBUTTONUP}
  305.   WM_MBUTTONUP        = $0208;
  306.   {$EXTERNALSYM WM_MBUTTONDBLCLK}
  307.   WM_MBUTTONDBLCLK    = $0209;
  308.   {$EXTERNALSYM WM_MOUSEWHEEL}
  309.   WM_MOUSEWHEEL       = $020A;
  310.   {$EXTERNALSYM WM_MOUSELAST}
  311.   WM_MOUSELAST        = $020A;
  312.  
  313.   {$EXTERNALSYM WM_PARENTNOTIFY}
  314.   WM_PARENTNOTIFY     = $0210;
  315.   {$EXTERNALSYM WM_ENTERMENULOOP}
  316.   WM_ENTERMENULOOP    = $0211;
  317.   {$EXTERNALSYM WM_EXITMENULOOP}
  318.   WM_EXITMENULOOP     = $0212;
  319.   {$EXTERNALSYM WM_NEXTMENU}
  320.   WM_NEXTMENU         = $0213;
  321.  
  322.   {$EXTERNALSYM WM_SIZING}
  323.   WM_SIZING           = 532;
  324.   {$EXTERNALSYM WM_CAPTURECHANGED}
  325.   WM_CAPTURECHANGED   = 533;
  326.   {$EXTERNALSYM WM_MOVING}
  327.   WM_MOVING           = 534;
  328.   {$EXTERNALSYM WM_POWERBROADCAST}
  329.   WM_POWERBROADCAST   = 536;
  330.   {$EXTERNALSYM WM_DEVICECHANGE}
  331.   WM_DEVICECHANGE     = 537;
  332.  
  333.   {$EXTERNALSYM WM_IME_STARTCOMPOSITION}
  334.   WM_IME_STARTCOMPOSITION        = $010D;
  335.   {$EXTERNALSYM WM_IME_ENDCOMPOSITION}
  336.   WM_IME_ENDCOMPOSITION          = $010E;
  337.   {$EXTERNALSYM WM_IME_COMPOSITION}
  338.   WM_IME_COMPOSITION             = $010F;
  339.   {$EXTERNALSYM WM_IME_KEYLAST}
  340.   WM_IME_KEYLAST                 = $010F;
  341.  
  342.   {$EXTERNALSYM WM_IME_SETCONTEXT}
  343.   WM_IME_SETCONTEXT              = $0281;
  344.   {$EXTERNALSYM WM_IME_NOTIFY}
  345.   WM_IME_NOTIFY                  = $0282;
  346.   {$EXTERNALSYM WM_IME_CONTROL}
  347.   WM_IME_CONTROL                 = $0283;
  348.   {$EXTERNALSYM WM_IME_COMPOSITIONFULL}
  349.   WM_IME_COMPOSITIONFULL         = $0284;
  350.   {$EXTERNALSYM WM_IME_SELECT}
  351.   WM_IME_SELECT                  = $0285;
  352.   {$EXTERNALSYM WM_IME_CHAR}
  353.   WM_IME_CHAR                    = $0286;
  354.   {$EXTERNALSYM WM_IME_REQUEST}
  355.   WM_IME_REQUEST                 = $0288;
  356.  
  357.   {$EXTERNALSYM WM_IME_KEYDOWN}
  358.   WM_IME_KEYDOWN                 = $0290;
  359.   {$EXTERNALSYM WM_IME_KEYUP}
  360.   WM_IME_KEYUP                   = $0291;
  361.  
  362.   {$EXTERNALSYM WM_MDICREATE}
  363.   WM_MDICREATE        = $0220;
  364.   {$EXTERNALSYM WM_MDIDESTROY}
  365.   WM_MDIDESTROY       = $0221;
  366.   {$EXTERNALSYM WM_MDIACTIVATE}
  367.   WM_MDIACTIVATE      = $0222;
  368.   {$EXTERNALSYM WM_MDIRESTORE}
  369.   WM_MDIRESTORE       = $0223;
  370.   {$EXTERNALSYM WM_MDINEXT}
  371.   WM_MDINEXT          = $0224;
  372.   {$EXTERNALSYM WM_MDIMAXIMIZE}
  373.   WM_MDIMAXIMIZE      = $0225;
  374.   {$EXTERNALSYM WM_MDITILE}
  375.   WM_MDITILE          = $0226;
  376.   {$EXTERNALSYM WM_MDICASCADE}
  377.   WM_MDICASCADE       = $0227;
  378.   {$EXTERNALSYM WM_MDIICONARRANGE}
  379.   WM_MDIICONARRANGE   = $0228;
  380.   {$EXTERNALSYM WM_MDIGETACTIVE}
  381.   WM_MDIGETACTIVE     = $0229;
  382.   {$EXTERNALSYM WM_MDISETMENU}
  383.   WM_MDISETMENU       = $0230;
  384.  
  385.   {$EXTERNALSYM WM_ENTERSIZEMOVE}
  386.   WM_ENTERSIZEMOVE    = $0231;
  387.   {$EXTERNALSYM WM_EXITSIZEMOVE}
  388.   WM_EXITSIZEMOVE     = $0232;
  389.   {$EXTERNALSYM WM_DROPFILES}
  390.   WM_DROPFILES        = $0233;
  391.   {$EXTERNALSYM WM_MDIREFRESHMENU}
  392.   WM_MDIREFRESHMENU   = $0234;
  393.  
  394.   {$EXTERNALSYM WM_MOUSEHOVER}
  395.   WM_MOUSEHOVER       = $02A1;
  396.   {$EXTERNALSYM WM_MOUSELEAVE}
  397.   WM_MOUSELEAVE       = $02A3;
  398.  
  399.   {$EXTERNALSYM WM_CUT}
  400.   WM_CUT              = $0300;
  401.   {$EXTERNALSYM WM_COPY}
  402.   WM_COPY             = $0301;
  403.   {$EXTERNALSYM WM_PASTE}
  404.   WM_PASTE            = $0302;
  405.   {$EXTERNALSYM WM_CLEAR}
  406.   WM_CLEAR            = $0303;
  407.   {$EXTERNALSYM WM_UNDO}
  408.   WM_UNDO             = $0304;
  409.   {$EXTERNALSYM WM_RENDERFORMAT}
  410.   WM_RENDERFORMAT     = $0305;
  411.   {$EXTERNALSYM WM_RENDERALLFORMATS}
  412.   WM_RENDERALLFORMATS = $0306;
  413.   {$EXTERNALSYM WM_DESTROYCLIPBOARD}
  414.   WM_DESTROYCLIPBOARD = $0307;
  415.   {$EXTERNALSYM WM_DRAWCLIPBOARD}
  416.   WM_DRAWCLIPBOARD    = $0308;
  417.   {$EXTERNALSYM WM_PAINTCLIPBOARD}
  418.   WM_PAINTCLIPBOARD   = $0309;
  419.   {$EXTERNALSYM WM_VSCROLLCLIPBOARD}
  420.   WM_VSCROLLCLIPBOARD = $030A;
  421.   {$EXTERNALSYM WM_SIZECLIPBOARD}
  422.   WM_SIZECLIPBOARD    = $030B;
  423.   {$EXTERNALSYM WM_ASKCBFORMATNAME}
  424.   WM_ASKCBFORMATNAME  = $030C;
  425.   {$EXTERNALSYM WM_CHANGECBCHAIN}
  426.   WM_CHANGECBCHAIN    = $030D;
  427.   {$EXTERNALSYM WM_HSCROLLCLIPBOARD}
  428.   WM_HSCROLLCLIPBOARD = $030E;
  429.   {$EXTERNALSYM WM_QUERYNEWPALETTE}
  430.   WM_QUERYNEWPALETTE  = $030F;
  431.   {$EXTERNALSYM WM_PALETTEISCHANGING}
  432.   WM_PALETTEISCHANGING= $0310;
  433.   {$EXTERNALSYM WM_PALETTECHANGED}
  434.   WM_PALETTECHANGED   = $0311;
  435.   {$EXTERNALSYM WM_HOTKEY}
  436.   WM_HOTKEY           = $0312;
  437.  
  438.   {$EXTERNALSYM WM_PRINT}
  439.   WM_PRINT            = 791;
  440.   {$EXTERNALSYM WM_PRINTCLIENT}
  441.   WM_PRINTCLIENT      = 792;
  442.  
  443.   {$EXTERNALSYM WM_HANDHELDFIRST}
  444.   WM_HANDHELDFIRST    = 856;
  445.   {$EXTERNALSYM WM_HANDHELDLAST}
  446.   WM_HANDHELDLAST     = 863;
  447.  
  448.   {$EXTERNALSYM WM_PENWINFIRST}
  449.   WM_PENWINFIRST      = $0380;
  450.   {$EXTERNALSYM WM_PENWINLAST}
  451.   WM_PENWINLAST       = $038F;
  452.  
  453.   {$EXTERNALSYM WM_COALESCE_FIRST}
  454.   WM_COALESCE_FIRST   = $0390;
  455.   {$EXTERNALSYM WM_COALESCE_LAST}
  456.   WM_COALESCE_LAST    = $039F;
  457.  
  458.   {$EXTERNALSYM WM_DDE_FIRST}
  459.   WM_DDE_FIRST        = $03E0;
  460.   {$EXTERNALSYM WM_DDE_INITIATE}
  461.   WM_DDE_INITIATE     = WM_DDE_FIRST + 0;
  462.   {$EXTERNALSYM WM_DDE_TERMINATE}
  463.   WM_DDE_TERMINATE    = WM_DDE_FIRST + 1;
  464.   {$EXTERNALSYM WM_DDE_ADVISE}
  465.   WM_DDE_ADVISE       = WM_DDE_FIRST + 2;
  466.   {$EXTERNALSYM WM_DDE_UNADVISE}
  467.   WM_DDE_UNADVISE     = WM_DDE_FIRST + 3;
  468.   {$EXTERNALSYM WM_DDE_ACK}
  469.   WM_DDE_ACK          = WM_DDE_FIRST + 4;
  470.   {$EXTERNALSYM WM_DDE_DATA}
  471.   WM_DDE_DATA         = WM_DDE_FIRST + 5;
  472.   {$EXTERNALSYM WM_DDE_REQUEST}
  473.   WM_DDE_REQUEST      = WM_DDE_FIRST + 6;
  474.   {$EXTERNALSYM WM_DDE_POKE}
  475.   WM_DDE_POKE         = WM_DDE_FIRST + 7;
  476.   {$EXTERNALSYM WM_DDE_EXECUTE}
  477.   WM_DDE_EXECUTE      = WM_DDE_FIRST + 8;
  478.   {$EXTERNALSYM WM_DDE_LAST}
  479.   WM_DDE_LAST         = WM_DDE_FIRST + 8;
  480.  
  481.   {$EXTERNALSYM WM_APP}
  482.   WM_APP = $8000;
  483.  
  484. { NOTE: All Message Numbers below 0x0400 are RESERVED }
  485.  
  486. { Private Window Messages Start Here }
  487.  
  488.   {$EXTERNALSYM WM_USER}
  489.   WM_USER             = $0400;
  490.  
  491. { Button Notification Codes }
  492.  
  493. const
  494.   {$EXTERNALSYM BN_CLICKED}
  495.   BN_CLICKED       = 0;
  496.   {$EXTERNALSYM BN_PAINT}
  497.   BN_PAINT         = 1;
  498.   {$EXTERNALSYM BN_HILITE}
  499.   BN_HILITE        = 2;
  500.   {$EXTERNALSYM BN_UNHILITE}
  501.   BN_UNHILITE      = 3;
  502.   {$EXTERNALSYM BN_DISABLE}
  503.   BN_DISABLE       = 4;
  504.   {$EXTERNALSYM BN_DOUBLECLICKED}
  505.   BN_DOUBLECLICKED = 5;
  506.   {$EXTERNALSYM BN_PUSHED}
  507.   BN_PUSHED = BN_HILITE;
  508.   {$EXTERNALSYM BN_UNPUSHED}
  509.   BN_UNPUSHED = BN_UNHILITE;
  510.   {$EXTERNALSYM BN_DBLCLK}
  511.   BN_DBLCLK = BN_DOUBLECLICKED;
  512.   {$EXTERNALSYM BN_SETFOCUS}
  513.   BN_SETFOCUS = 6;
  514.   {$EXTERNALSYM BN_KILLFOCUS}
  515.   BN_KILLFOCUS = 7;
  516.  
  517. { Button Control Messages }
  518. const
  519.   {$EXTERNALSYM BM_GETCHECK}
  520.   BM_GETCHECK = $00F0;
  521.   {$EXTERNALSYM BM_SETCHECK}
  522.   BM_SETCHECK = $00F1;
  523.   {$EXTERNALSYM BM_GETSTATE}
  524.   BM_GETSTATE = $00F2;
  525.   {$EXTERNALSYM BM_SETSTATE}
  526.   BM_SETSTATE = $00F3;
  527.   {$EXTERNALSYM BM_SETSTYLE}
  528.   BM_SETSTYLE = $00F4;
  529.   {$EXTERNALSYM BM_CLICK}
  530.   BM_CLICK    = $00F5;
  531.   {$EXTERNALSYM BM_GETIMAGE}
  532.   BM_GETIMAGE = $00F6;
  533.   {$EXTERNALSYM BM_SETIMAGE}
  534.   BM_SETIMAGE = $00F7;
  535.  
  536. { Listbox Notification Codes }
  537.  
  538. const
  539.   {$EXTERNALSYM LBN_ERRSPACE}
  540.   LBN_ERRSPACE  = (-2);
  541.   {$EXTERNALSYM LBN_SELCHANGE}
  542.   LBN_SELCHANGE = 1;
  543.   {$EXTERNALSYM LBN_DBLCLK}
  544.   LBN_DBLCLK    = 2;
  545.   {$EXTERNALSYM LBN_SELCANCEL}
  546.   LBN_SELCANCEL = 3;
  547.   {$EXTERNALSYM LBN_SETFOCUS}
  548.   LBN_SETFOCUS  = 4;
  549.   {$EXTERNALSYM LBN_KILLFOCUS}
  550.   LBN_KILLFOCUS = 5;
  551.  
  552. { Listbox messages }
  553.  
  554. const
  555.   {$EXTERNALSYM LB_ADDSTRING}
  556.   LB_ADDSTRING            = $0180;
  557.   {$EXTERNALSYM LB_INSERTSTRING}
  558.   LB_INSERTSTRING         = $0181;
  559.   {$EXTERNALSYM LB_DELETESTRING}
  560.   LB_DELETESTRING         = $0182;
  561.   {$EXTERNALSYM LB_SELITEMRANGEEX}
  562.   LB_SELITEMRANGEEX       = $0183;
  563.   {$EXTERNALSYM LB_RESETCONTENT}
  564.   LB_RESETCONTENT         = $0184;
  565.   {$EXTERNALSYM LB_SETSEL}
  566.   LB_SETSEL               = $0185;
  567.   {$EXTERNALSYM LB_SETCURSEL}
  568.   LB_SETCURSEL            = $0186;
  569.   {$EXTERNALSYM LB_GETSEL}
  570.   LB_GETSEL               = $0187;
  571.   {$EXTERNALSYM LB_GETCURSEL}
  572.   LB_GETCURSEL            = $0188;
  573.   {$EXTERNALSYM LB_GETTEXT}
  574.   LB_GETTEXT              = $0189;
  575.   {$EXTERNALSYM LB_GETTEXTLEN}
  576.   LB_GETTEXTLEN           = $018A;
  577.   {$EXTERNALSYM LB_GETCOUNT}
  578.   LB_GETCOUNT             = $018B;
  579.   {$EXTERNALSYM LB_SELECTSTRING}
  580.   LB_SELECTSTRING         = $018C;
  581.   {$EXTERNALSYM LB_DIR}
  582.   LB_DIR                  = $018D;
  583.   {$EXTERNALSYM LB_GETTOPINDEX}
  584.   LB_GETTOPINDEX          = $018E;
  585.   {$EXTERNALSYM LB_FINDSTRING}
  586.   LB_FINDSTRING           = $018F;
  587.   {$EXTERNALSYM LB_GETSELCOUNT}
  588.   LB_GETSELCOUNT          = $0190;
  589.   {$EXTERNALSYM LB_GETSELITEMS}
  590.   LB_GETSELITEMS          = $0191;
  591.   {$EXTERNALSYM LB_SETTABSTOPS}
  592.   LB_SETTABSTOPS          = $0192;
  593.   {$EXTERNALSYM LB_GETHORIZONTALEXTENT}
  594.   LB_GETHORIZONTALEXTENT  = $0193;
  595.   {$EXTERNALSYM LB_SETHORIZONTALEXTENT}
  596.   LB_SETHORIZONTALEXTENT  = $0194;
  597.   {$EXTERNALSYM LB_SETCOLUMNWIDTH}
  598.   LB_SETCOLUMNWIDTH       = $0195;
  599.   {$EXTERNALSYM LB_ADDFILE}
  600.   LB_ADDFILE              = $0196;
  601.   {$EXTERNALSYM LB_SETTOPINDEX}
  602.   LB_SETTOPINDEX          = $0197;
  603.   {$EXTERNALSYM LB_GETITEMRECT}
  604.   LB_GETITEMRECT          = $0198;
  605.   {$EXTERNALSYM LB_GETITEMDATA}
  606.   LB_GETITEMDATA          = $0199;
  607.   {$EXTERNALSYM LB_SETITEMDATA}
  608.   LB_SETITEMDATA          = $019A;
  609.   {$EXTERNALSYM LB_SELITEMRANGE}
  610.   LB_SELITEMRANGE         = $019B;
  611.   {$EXTERNALSYM LB_SETANCHORINDEX}
  612.   LB_SETANCHORINDEX       = $019C;
  613.   {$EXTERNALSYM LB_GETANCHORINDEX}
  614.   LB_GETANCHORINDEX       = $019D;
  615.   {$EXTERNALSYM LB_SETCARETINDEX}
  616.   LB_SETCARETINDEX        = $019E;
  617.   {$EXTERNALSYM LB_GETCARETINDEX}
  618.   LB_GETCARETINDEX        = $019F;
  619.   {$EXTERNALSYM LB_SETITEMHEIGHT}
  620.   LB_SETITEMHEIGHT        = $01A0;
  621.   {$EXTERNALSYM LB_GETITEMHEIGHT}
  622.   LB_GETITEMHEIGHT        = $01A1;
  623.   {$EXTERNALSYM LB_FINDSTRINGEXACT}
  624.   LB_FINDSTRINGEXACT      = $01A2;
  625.   {$EXTERNALSYM LB_SETLOCALE}
  626.   LB_SETLOCALE            = $01A5;
  627.   {$EXTERNALSYM LB_GETLOCALE}
  628.   LB_GETLOCALE            = $01A6;
  629.   {$EXTERNALSYM LB_SETCOUNT}
  630.   LB_SETCOUNT             = $01A7;
  631.   {$EXTERNALSYM LB_INITSTORAGE}
  632.   LB_INITSTORAGE          = $01A8;
  633.   {$EXTERNALSYM LB_ITEMFROMPOINT}
  634.   LB_ITEMFROMPOINT        = $01A9;
  635.   {$EXTERNALSYM LB_MSGMAX}
  636.   LB_MSGMAX               = 432;
  637.  
  638. { Combo Box Notification Codes }
  639.  
  640. const
  641.   {$EXTERNALSYM CBN_ERRSPACE}
  642.   CBN_ERRSPACE   = (-1);
  643.   {$EXTERNALSYM CBN_SELCHANGE}
  644.   CBN_SELCHANGE  = 1;
  645.   {$EXTERNALSYM CBN_DBLCLK}
  646.   CBN_DBLCLK     = 2;
  647.   {$EXTERNALSYM CBN_SETFOCUS}
  648.   CBN_SETFOCUS   = 3;
  649.   {$EXTERNALSYM CBN_KILLFOCUS}
  650.   CBN_KILLFOCUS  = 4;
  651.   {$EXTERNALSYM CBN_EDITCHANGE}
  652.   CBN_EDITCHANGE = 5;
  653.   {$EXTERNALSYM CBN_EDITUPDATE}
  654.   CBN_EDITUPDATE = 6;
  655.   {$EXTERNALSYM CBN_DROPDOWN}
  656.   CBN_DROPDOWN   = 7;
  657.   {$EXTERNALSYM CBN_CLOSEUP}
  658.   CBN_CLOSEUP    = 8;
  659.   {$EXTERNALSYM CBN_SELENDOK}
  660.   CBN_SELENDOK   = 9;
  661.   {$EXTERNALSYM CBN_SELENDCANCEL}
  662.   CBN_SELENDCANCEL = 10;
  663.  
  664. { Combo Box messages }
  665.  
  666.   {$EXTERNALSYM CB_GETEDITSEL}
  667.   CB_GETEDITSEL            = $0140;
  668.   {$EXTERNALSYM CB_LIMITTEXT}
  669.   CB_LIMITTEXT             = $0141;
  670.   {$EXTERNALSYM CB_SETEDITSEL}
  671.   CB_SETEDITSEL            = $0142;
  672.   {$EXTERNALSYM CB_ADDSTRING}
  673.   CB_ADDSTRING             = $0143;
  674.   {$EXTERNALSYM CB_DELETESTRING}
  675.   CB_DELETESTRING          = $0144;
  676.   {$EXTERNALSYM CB_DIR}
  677.   CB_DIR                   = $0145;
  678.   {$EXTERNALSYM CB_GETCOUNT}
  679.   CB_GETCOUNT              = $0146;
  680.   {$EXTERNALSYM CB_GETCURSEL}
  681.   CB_GETCURSEL             = $0147;
  682.   {$EXTERNALSYM CB_GETLBTEXT}
  683.   CB_GETLBTEXT             = $0148;
  684.   {$EXTERNALSYM CB_GETLBTEXTLEN}
  685.   CB_GETLBTEXTLEN          = $0149;
  686.   {$EXTERNALSYM CB_INSERTSTRING}
  687.   CB_INSERTSTRING          = $014A;
  688.   {$EXTERNALSYM CB_RESETCONTENT}
  689.   CB_RESETCONTENT          = $014B;
  690.   {$EXTERNALSYM CB_FINDSTRING}
  691.   CB_FINDSTRING            = $014C;
  692.   {$EXTERNALSYM CB_SELECTSTRING}
  693.   CB_SELECTSTRING          = $014D;
  694.   {$EXTERNALSYM CB_SETCURSEL}
  695.   CB_SETCURSEL             = $014E;
  696.   {$EXTERNALSYM CB_SHOWDROPDOWN}
  697.   CB_SHOWDROPDOWN          = $014F;
  698.   {$EXTERNALSYM CB_GETITEMDATA}
  699.   CB_GETITEMDATA           = $0150;
  700.   {$EXTERNALSYM CB_SETITEMDATA}
  701.   CB_SETITEMDATA           = $0151;
  702.   {$EXTERNALSYM CB_GETDROPPEDCONTROLRECT}
  703.   CB_GETDROPPEDCONTROLRECT = $0152;
  704.   {$EXTERNALSYM CB_SETITEMHEIGHT}
  705.   CB_SETITEMHEIGHT         = $0153;
  706.   {$EXTERNALSYM CB_GETITEMHEIGHT}
  707.   CB_GETITEMHEIGHT         = $0154;
  708.   {$EXTERNALSYM CB_SETEXTENDEDUI}
  709.   CB_SETEXTENDEDUI         = $0155;
  710.   {$EXTERNALSYM CB_GETEXTENDEDUI}
  711.   CB_GETEXTENDEDUI         = $0156;
  712.   {$EXTERNALSYM CB_GETDROPPEDSTATE}
  713.   CB_GETDROPPEDSTATE       = $0157;
  714.   {$EXTERNALSYM CB_FINDSTRINGEXACT}
  715.   CB_FINDSTRINGEXACT       = $0158;
  716.   {$EXTERNALSYM CB_SETLOCALE}
  717.   CB_SETLOCALE             = 345;
  718.   {$EXTERNALSYM CB_GETLOCALE}
  719.   CB_GETLOCALE             = 346;
  720.   {$EXTERNALSYM CB_GETTOPINDEX}
  721.   CB_GETTOPINDEX           = 347;
  722.   {$EXTERNALSYM CB_SETTOPINDEX}
  723.   CB_SETTOPINDEX           = 348;
  724.   {$EXTERNALSYM CB_GETHORIZONTALEXTENT}
  725.   CB_GETHORIZONTALEXTENT   = 349;
  726.   {$EXTERNALSYM CB_SETHORIZONTALEXTENT}
  727.   CB_SETHORIZONTALEXTENT   = 350;
  728.   {$EXTERNALSYM CB_GETDROPPEDWIDTH}
  729.   CB_GETDROPPEDWIDTH       = 351;
  730.   {$EXTERNALSYM CB_SETDROPPEDWIDTH}
  731.   CB_SETDROPPEDWIDTH       = 352;
  732.   {$EXTERNALSYM CB_INITSTORAGE}
  733.   CB_INITSTORAGE           = 353;
  734.   {$EXTERNALSYM CB_MSGMAX}
  735.   CB_MSGMAX                = 354;
  736.  
  737. { Edit Control Notification Codes }
  738.  
  739. const
  740.   {$EXTERNALSYM EN_SETFOCUS}
  741.   EN_SETFOCUS  = $0100;
  742.   {$EXTERNALSYM EN_KILLFOCUS}
  743.   EN_KILLFOCUS = $0200;
  744.   {$EXTERNALSYM EN_CHANGE}
  745.   EN_CHANGE    = $0300;
  746.   {$EXTERNALSYM EN_UPDATE}
  747.   EN_UPDATE    = $0400;
  748.   {$EXTERNALSYM EN_ERRSPACE}
  749.   EN_ERRSPACE  = $0500;
  750.   {$EXTERNALSYM EN_MAXTEXT}
  751.   EN_MAXTEXT   = $0501;
  752.   {$EXTERNALSYM EN_HSCROLL}
  753.   EN_HSCROLL   = $0601;
  754.   {$EXTERNALSYM EN_VSCROLL}
  755.   EN_VSCROLL   = $0602;
  756.  
  757. { Edit Control Messages }
  758.  
  759. const
  760.   {$EXTERNALSYM EM_GETSEL}
  761.   EM_GETSEL              = $00B0;
  762.   {$EXTERNALSYM EM_SETSEL}
  763.   EM_SETSEL              = $00B1;
  764.   {$EXTERNALSYM EM_GETRECT}
  765.   EM_GETRECT             = $00B2;
  766.   {$EXTERNALSYM EM_SETRECT}
  767.   EM_SETRECT             = $00B3;
  768.   {$EXTERNALSYM EM_SETRECTNP}
  769.   EM_SETRECTNP           = $00B4;
  770.   {$EXTERNALSYM EM_SCROLL}
  771.   EM_SCROLL              = $00B5;
  772.   {$EXTERNALSYM EM_LINESCROLL}
  773.   EM_LINESCROLL          = $00B6;
  774.   {$EXTERNALSYM EM_SCROLLCARET}
  775.   EM_SCROLLCARET         = $00B7;
  776.   {$EXTERNALSYM EM_GETMODIFY}
  777.   EM_GETMODIFY           = $00B8;
  778.   {$EXTERNALSYM EM_SETMODIFY}
  779.   EM_SETMODIFY           = $00B9;
  780.   {$EXTERNALSYM EM_GETLINECOUNT}
  781.   EM_GETLINECOUNT        = $00BA;
  782.   {$EXTERNALSYM EM_LINEINDEX}
  783.   EM_LINEINDEX           = $00BB;
  784.   {$EXTERNALSYM EM_SETHANDLE}
  785.   EM_SETHANDLE           = $00BC;
  786.   {$EXTERNALSYM EM_GETHANDLE}
  787.   EM_GETHANDLE           = $00BD;
  788.   {$EXTERNALSYM EM_GETTHUMB}
  789.   EM_GETTHUMB            = $00BE;
  790.   {$EXTERNALSYM EM_LINELENGTH}
  791.   EM_LINELENGTH          = $00C1;
  792.   {$EXTERNALSYM EM_REPLACESEL}
  793.   EM_REPLACESEL          = $00C2;
  794.   {$EXTERNALSYM EM_GETLINE}
  795.   EM_GETLINE             = $00C4;
  796.   {$EXTERNALSYM EM_LIMITTEXT}
  797.   EM_LIMITTEXT           = $00C5;
  798.   {$EXTERNALSYM EM_CANUNDO}
  799.   EM_CANUNDO             = $00C6;
  800.   {$EXTERNALSYM EM_UNDO}
  801.   EM_UNDO                = $00C7;
  802.   {$EXTERNALSYM EM_FMTLINES}
  803.   EM_FMTLINES            = $00C8;
  804.   {$EXTERNALSYM EM_LINEFROMCHAR}
  805.   EM_LINEFROMCHAR        = $00C9;
  806.   {$EXTERNALSYM EM_SETTABSTOPS}
  807.   EM_SETTABSTOPS         = $00CB;
  808.   {$EXTERNALSYM EM_SETPASSWORDCHAR}
  809.   EM_SETPASSWORDCHAR     = $00CC;
  810.   {$EXTERNALSYM EM_EMPTYUNDOBUFFER}
  811.   EM_EMPTYUNDOBUFFER     = $00CD;
  812.   {$EXTERNALSYM EM_GETFIRSTVISIBLELINE}
  813.   EM_GETFIRSTVISIBLELINE = $00CE;
  814.   {$EXTERNALSYM EM_SETREADONLY}
  815.   EM_SETREADONLY         = $00CF;
  816.   {$EXTERNALSYM EM_SETWORDBREAKPROC}
  817.   EM_SETWORDBREAKPROC    = $00D0;
  818.   {$EXTERNALSYM EM_GETWORDBREAKPROC}
  819.   EM_GETWORDBREAKPROC    = $00D1;
  820.   {$EXTERNALSYM EM_GETPASSWORDCHAR}
  821.   EM_GETPASSWORDCHAR     = $00D2;
  822.   {$EXTERNALSYM EM_SETMARGINS}
  823.   EM_SETMARGINS          = 211;
  824.   {$EXTERNALSYM EM_GETMARGINS}
  825.   EM_GETMARGINS          = 212;
  826.   {$EXTERNALSYM EM_SETLIMITTEXT}
  827.   EM_SETLIMITTEXT        = EM_LIMITTEXT;    //win40 Name change
  828.   {$EXTERNALSYM EM_GETLIMITTEXT}
  829.   EM_GETLIMITTEXT        = 213;
  830.   {$EXTERNALSYM EM_POSFROMCHAR}
  831.   EM_POSFROMCHAR         = 214;
  832.   {$EXTERNALSYM EM_CHARFROMPOS}
  833.   EM_CHARFROMPOS         = 215;
  834.   {$EXTERNALSYM EM_SETIMESTATUS}
  835.   EM_SETIMESTATUS        = 216;
  836.   {$EXTERNALSYM EM_GETIMESTATUS}
  837.   EM_GETIMESTATUS        = 217;
  838.  
  839. const
  840.   { Scroll bar messages }
  841.   {$EXTERNALSYM SBM_SETPOS}
  842.   SBM_SETPOS = 224;             { not in win3.1  }
  843.   {$EXTERNALSYM SBM_GETPOS}
  844.   SBM_GETPOS = 225;             { not in win3.1  }
  845.   {$EXTERNALSYM SBM_SETRANGE}
  846.   SBM_SETRANGE = 226;           { not in win3.1  }
  847.   {$EXTERNALSYM SBM_SETRANGEREDRAW}
  848.   SBM_SETRANGEREDRAW = 230;     { not in win3.1  }
  849.   {$EXTERNALSYM SBM_GETRANGE}
  850.   SBM_GETRANGE = 227;           { not in win3.1  }
  851.   {$EXTERNALSYM SBM_ENABLE_ARROWS}
  852.   SBM_ENABLE_ARROWS = 228;      { not in win3.1  }
  853.   {$EXTERNALSYM SBM_SETSCROLLINFO}
  854.   SBM_SETSCROLLINFO = 233;
  855.   {$EXTERNALSYM SBM_GETSCROLLINFO}
  856.   SBM_GETSCROLLINFO = 234;
  857.  
  858. { Dialog messages }
  859.  
  860.   {$EXTERNALSYM DM_GETDEFID}
  861.   DM_GETDEFID = (WM_USER+0);
  862.   {$EXTERNALSYM DM_SETDEFID}
  863.   DM_SETDEFID = (WM_USER+1);
  864.   {$EXTERNALSYM DM_REPOSITION}
  865.   DM_REPOSITION = (WM_USER+2);
  866.  
  867.   {$EXTERNALSYM PSM_PAGEINFO}
  868.   PSM_PAGEINFO = (WM_USER+100);
  869.   {$EXTERNALSYM PSM_SHEETINFO}
  870.   PSM_SHEETINFO = (WM_USER+101);
  871.  
  872. type
  873.  
  874. { Generic window message record }
  875.  
  876.   PMessage = ^TMessage;
  877.   TMessage = packed record
  878.     Msg: Cardinal;
  879.     case Integer of
  880.       0: (
  881.         WParam: Longint;
  882.         LParam: Longint;
  883.         Result: Longint);
  884.       1: (
  885.         WParamLo: Word;
  886.         WParamHi: Word;
  887.         LParamLo: Word;
  888.         LParamHi: Word;
  889.         ResultLo: Word;
  890.         ResultHi: Word);
  891.   end;
  892.  
  893. { Common message format records }
  894.  
  895.   TWMNoParams = packed record
  896.     Msg: Cardinal;
  897.     Unused: array[0..3] of Word;
  898.     Result: Longint;
  899.   end;
  900.  
  901.   TWMKey = packed record
  902.     Msg: Cardinal;
  903.     CharCode: Word;
  904.     Unused: Word;
  905.     KeyData: Longint;
  906.     Result: Longint;
  907.   end;
  908.  
  909.   TWMMouse = packed record
  910.     Msg: Cardinal;
  911.     Keys: Longint;
  912.     case Integer of
  913.       0: (
  914.         XPos: Smallint;
  915.         YPos: Smallint);
  916.       1: (
  917.         Pos: TSmallPoint;
  918.         Result: Longint);
  919.   end;
  920.  
  921.   TWMMouseWheel = packed record
  922.     Msg: Cardinal;
  923.     Keys: SmallInt;
  924.     WheelDelta: SmallInt;
  925.     case Integer of
  926.       0: (
  927.         XPos: Smallint;
  928.         YPos: Smallint);
  929.       1: (
  930.         Pos: TSmallPoint;
  931.         Result: Longint);
  932.   end;
  933.  
  934.   TMSHMouseWheel = packed record
  935.     Msg: Cardinal;
  936.     WheelDelta: Integer;
  937.     case Integer of
  938.       0: (
  939.         XPos: Smallint;
  940.         YPos: Smallint);
  941.       1: (
  942.         Pos: TSmallPoint;
  943.         Result: Longint);
  944.   end;
  945.  
  946.   TWMWindowPosMsg = packed record
  947.     Msg: Cardinal;
  948.     Unused: Integer;
  949.     WindowPos: PWindowPos;
  950.     Result: Longint;
  951.   end;
  952.  
  953.   TWMScroll = packed record
  954.     Msg: Cardinal;
  955.     ScrollCode: Smallint; { SB_xxxx }
  956.     Pos: Smallint;
  957.     ScrollBar: HWND;
  958.     Result: Longint;
  959.   end;
  960.  
  961. { Message records }
  962.  
  963.   TWMActivate = packed record
  964.     Msg: Cardinal;
  965.     Active: Word; { WA_INACTIVE, WA_ACTIVE, WA_CLICKACTIVE }
  966.     Minimized: WordBool;
  967.     ActiveWindow: HWND;
  968.     Result: Longint;
  969.   end;
  970.  
  971.   TWMActivateApp = packed record
  972.     Msg: Cardinal;
  973.     Active: BOOL;
  974.     ThreadId: Longint;
  975.     Result: Longint;
  976.   end;
  977.  
  978.   TWMAskCBFormatName = packed record
  979.     Msg: Cardinal;
  980.     NameLen: Word;
  981.     Unused: Word;
  982.     FormatName: PChar;
  983.     Result: Longint;
  984.   end;
  985.  
  986.   TWMCancelMode = TWMNoParams;
  987.  
  988.   TWMChangeCBChain = packed record
  989.     Msg: Cardinal;
  990.     Remove: HWND;
  991.     Next: HWND;
  992.     Result: Longint;
  993.   end;
  994.  
  995.   TWMChar = TWMKey;
  996.  
  997.   TWMCharToItem = packed record
  998.     Msg: Cardinal;
  999.     Key: Word;
  1000.     CaretPos: Word;
  1001.     ListBox: HWND;
  1002.     Result: Longint;
  1003.   end;
  1004.  
  1005.   TWMChildActivate = TWMNoParams;
  1006.  
  1007.   TWMChooseFont_GetLogFont = packed record
  1008.     Msg: Cardinal;
  1009.     Unused: Longint;
  1010.     LogFont: PLogFont;
  1011.     Result: Longint;
  1012.   end;
  1013.  
  1014.   TWMClear = TWMNoParams;
  1015.   TWMClose = TWMNoParams;
  1016.  
  1017.   TWMCommand = packed record
  1018.     Msg: Cardinal;
  1019.     ItemID: Word;
  1020.     NotifyCode: Word;
  1021.     Ctl: HWND;
  1022.     Result: Longint;
  1023.   end;
  1024.  
  1025.   TWMCompacting = packed record
  1026.     Msg: Cardinal;
  1027.     CompactRatio: Longint;
  1028.     Unused: Longint;
  1029.     Result: Longint;
  1030.   end;
  1031.  
  1032.   TWMCompareItem = packed record
  1033.     Msg: Cardinal;
  1034.     Ctl: HWnd;
  1035.     CompareItemStruct: PCompareItemStruct;
  1036.     Result: Longint;
  1037.   end;
  1038.  
  1039.   TWMCopy = TWMNoParams;
  1040.  
  1041.   TWMCopyData = packed record
  1042.     Msg: Cardinal;
  1043.     From: HWND;
  1044.     CopyDataStruct: PCopyDataStruct;
  1045.     Result: Longint;
  1046.   end;
  1047.  
  1048.   { ?? WM_CLP_LAUNCH, WM_CPL_LAUNCHED }
  1049.  
  1050.   TWMCreate = packed record
  1051.     Msg: Cardinal;
  1052.     Unused: Integer;
  1053.     CreateStruct: PCreateStruct;
  1054.     Result: Longint;
  1055.   end;
  1056.  
  1057.   TWMCtlColor = packed record
  1058.     Msg: Cardinal;
  1059.     ChildDC: HDC;
  1060.     ChildWnd: HWND;
  1061.     Result: Longint;
  1062.   end;
  1063.  
  1064.   TWMCtlColorBtn = TWMCtlColor;
  1065.   TWMCtlColorDlg = TWMCtlColor;
  1066.   TWMCtlColorEdit = TWMCtlColor;
  1067.   TWMCtlColorListbox = TWMCtlColor;
  1068.   TWMCtlColorMsgbox = TWMCtlColor;
  1069.   TWMCtlColorScrollbar = TWMCtlColor;
  1070.   TWMCtlColorStatic = TWMCtlColor;
  1071.  
  1072.   TWMCut = TWMNoParams;
  1073.  
  1074.   TWMDDE_Ack = packed record
  1075.     Msg: Cardinal;
  1076.     PostingApp: HWND;
  1077.     case Word of
  1078.       WM_DDE_INITIATE: (
  1079.         App: Word;
  1080.         Topic: Word;
  1081.         Result: Longint);
  1082.       WM_DDE_EXECUTE {and all others}: (
  1083.         PackedVal: Longint);
  1084.   end;
  1085.  
  1086.   TWMDDE_Advise = packed record
  1087.     Msg: Cardinal;
  1088.     PostingApp: HWND;
  1089.     PackedVal: Longint;
  1090.     Result: Longint;
  1091.   end;
  1092.  
  1093.   TWMDDE_Data = packed record
  1094.     Msg: Cardinal;
  1095.     PostingApp: HWND;
  1096.     PackedVal: Longint;
  1097.     Result: Longint;
  1098.   end;
  1099.  
  1100.   TWMDDE_Execute = packed record
  1101.     Msg: Cardinal;
  1102.     PostingApp: HWND;
  1103.     Commands: THandle;
  1104.     Result: Longint;
  1105.   end;
  1106.  
  1107.   TWMDDE_Initiate = packed record
  1108.     Msg: Cardinal;
  1109.     PostingApp: HWND;
  1110.     App: Word;
  1111.     Topic: Word;
  1112.     Result: Longint;
  1113.   end;
  1114.  
  1115.   TWMDDE_Poke = packed record
  1116.     Msg: Cardinal;
  1117.     PostingApp: HWND;
  1118.     PackedVal: Longint;
  1119.     Result: Longint;
  1120.   end;
  1121.  
  1122.   TWMDDE_Request = packed record
  1123.     Msg: Cardinal;
  1124.     PostingApp: HWND;
  1125.     Format: Word;
  1126.     Item: Word;
  1127.     Result: Longint;
  1128.   end;
  1129.  
  1130.   TWMDDE_Terminate = packed record
  1131.     Msg: Cardinal;
  1132.     PostingApp: HWND;
  1133.     Unused: Longint;
  1134.     Result: Longint;
  1135.   end;
  1136.  
  1137.   TWMDDE_Unadvise = packed record
  1138.     Msg: Cardinal;
  1139.     PostingApp: HWND;
  1140.     Format: Word;
  1141.     Item: Word;
  1142.     Result: Longint;
  1143.   end;
  1144.  
  1145.   TWMDeadChar = TWMChar;
  1146.  
  1147.   TWMDeleteItem = packed record
  1148.     Msg: Cardinal;
  1149.     Ctl: HWND;
  1150.     DeleteItemStruct: PDeleteItemStruct;
  1151.     Result: Longint;
  1152.   end;
  1153.  
  1154.   TWMDestroy = TWMNoParams;
  1155.   TWMDestroyClipboard = TWMNoParams;
  1156.  
  1157.   TWMDevModeChange = packed record
  1158.     Msg: Cardinal;
  1159.     Unused: Integer;
  1160.     Device: PChar;
  1161.     Result: Longint;
  1162.   end;
  1163.  
  1164.   TWMDrawClipboard = TWMNoParams;
  1165.  
  1166.   TWMDrawItem = packed record
  1167.     Msg: Cardinal;
  1168.     Ctl: HWND;
  1169.     DrawItemStruct: PDrawItemStruct;
  1170.     Result: Longint;
  1171.   end;
  1172.  
  1173.   TWMDropFiles = packed record
  1174.     Msg: Cardinal;
  1175.     Drop: THANDLE;
  1176.     Unused: Longint;
  1177.     Result: Longint;
  1178.   end;
  1179.  
  1180.   TWMEnable = packed record
  1181.     Msg: Cardinal;
  1182.     Enabled: LongBool;
  1183.     Unused: Longint;
  1184.     Result: Longint;
  1185.   end;
  1186.  
  1187.   TWMEndSession = packed record
  1188.     Msg: Cardinal;
  1189.     EndSession: LongBool;
  1190.     Unused: Longint;
  1191.     Result: Longint;
  1192.   end;
  1193.  
  1194.   TWMEnterIdle = packed record
  1195.     Msg: Cardinal;
  1196.     Source: Longint; { MSGF_DIALOGBOX, MSGF_MENU }
  1197.     IdleWnd: HWND;
  1198.     Result: Longint;
  1199.   end;
  1200.  
  1201.   TWMEnterMenuLoop = packed record
  1202.     Msg: Cardinal;
  1203.     IsTrackPopupMenu: LongBool;
  1204.     Unused: Longint;
  1205.     Result: Longint;
  1206.   end;
  1207.  
  1208.   TWMExitMenuLoop = TWMEnterMenuLoop;
  1209.  
  1210.   TWMEraseBkgnd = packed record
  1211.     Msg: Cardinal;
  1212.     DC: HDC;
  1213.     Unused: Longint;
  1214.     Result: Longint;
  1215.   end;
  1216.  
  1217.   TWMFontChange = TWMNoParams;
  1218.   TWMGetDlgCode = TWMNoParams;
  1219.   TWMGetFont = TWMNoParams;
  1220.  
  1221.   TWMGetIcon = packed record
  1222.     Msg: Cardinal;
  1223.     BigIcon: Longbool;
  1224.     Unused: Longint;
  1225.     Result: Longint;
  1226.   end;
  1227.  
  1228.   TWMGetHotKey = TWMNoParams;
  1229.  
  1230.   TWMGetMinMaxInfo = packed record
  1231.     Msg: Cardinal;
  1232.     Unused: Integer;
  1233.     MinMaxInfo: PMinMaxInfo;
  1234.     Result: Longint;
  1235.   end;
  1236.  
  1237.   TWMGetText = packed record
  1238.     Msg: Cardinal;
  1239.     TextMax: Integer;
  1240.     Text: PChar;
  1241.     Result: Longint;
  1242.   end;
  1243.  
  1244.   TWMGetTextLength = TWMNoParams;
  1245.  
  1246.   TWMHotKey = packed record
  1247.     Msg: Cardinal;
  1248.     HotKey: Longint;
  1249.     Unused: Longint;
  1250.     Result: Longint;
  1251.   end;
  1252.  
  1253.   TWMHScroll = TWMScroll;
  1254.  
  1255.   TWMHScrollClipboard = packed record
  1256.     Msg: Cardinal;
  1257.     Viewer: HWND;
  1258.     ScrollCode: Word; {SB_BOTTOM, SB_ENDSCROLL, SB_LINEDOWN, SB_LINEUP,
  1259.                        SB_PAGEDOWN, SB_PAGEUP, SB_THUMBPOSITION,
  1260.                        SB_THUMBTRACK, SB_TOP }
  1261.     Pos: Word;
  1262.     Result: Longint;
  1263.   end;
  1264.  
  1265.   TWMIconEraseBkgnd = TWMEraseBkgnd;
  1266.  
  1267.   TWMInitDialog = packed record
  1268.     Msg: Cardinal;
  1269.     Focus: HWND;
  1270.     InitParam: Longint;
  1271.     Result: Longint;
  1272.   end;
  1273.  
  1274.   TWMInitMenu = packed record
  1275.     Msg: Cardinal;
  1276.     Menu: HMENU;
  1277.     Unused: Longint;
  1278.     Result: Longint;
  1279.   end;
  1280.  
  1281.   TWMInitMenuPopup = packed record
  1282.     Msg: Cardinal;
  1283.     MenuPopup: HMENU;
  1284.     Pos: Smallint;
  1285.     SystemMenu: WordBool;
  1286.     Result: Longint;
  1287.   end;
  1288.  
  1289.   TWMKeyDown = TWMKey;
  1290.   TWMKeyUp = TWMKey;
  1291.  
  1292.   TWMKillFocus = packed record
  1293.     Msg: Cardinal;
  1294.     FocusedWnd: HWND;
  1295.     Unused: Longint;
  1296.     Result: Longint;
  1297.   end;
  1298.  
  1299.   TWMLButtonDblClk = TWMMouse;
  1300.   TWMLButtonDown   = TWMMouse;
  1301.   TWMLButtonUp     = TWMMouse;
  1302.   TWMMButtonDblClk = TWMMouse;
  1303.   TWMMButtonDown   = TWMMouse;
  1304.   TWMMButtonUp     = TWMMouse;
  1305.  
  1306.   TWMMDIActivate = packed record
  1307.     Msg: Cardinal;
  1308.     case Integer of
  1309.       0: (
  1310.         ChildWnd: HWND);
  1311.       1: (
  1312.         DeactiveWnd: HWND;
  1313.         ActiveWnd: HWND;
  1314.         Result: Longint);
  1315.   end;
  1316.  
  1317.   TWMMDICascade = packed record
  1318.     Msg: Cardinal;
  1319.     Cascade: Longint; { 0, MDITILE_SKIPDISABLED }
  1320.     Unused: Longint;
  1321.     Result: Longint;
  1322.   end;
  1323.  
  1324.   TWMMDICreate = packed record
  1325.     Msg: Cardinal;
  1326.     Unused: Integer;
  1327.     MDICreateStruct: PMDICreateStruct;
  1328.     Result: Longint;
  1329.   end;
  1330.  
  1331.   TWMMDIDestroy = packed record
  1332.     Msg: Cardinal;
  1333.     Child: HWND;
  1334.     Unused: Longint;
  1335.     Result: Longint;
  1336.   end;
  1337.  
  1338.   TWMMDIGetActive = TWMNoParams;
  1339.   TWMMDIIconArrange = TWMNoParams;
  1340.  
  1341.   TWMMDIMaximize = packed record
  1342.     Msg: Cardinal;
  1343.     Maximize: HWND;
  1344.     Unused: Longint;
  1345.     Result: Longint;
  1346.   end;
  1347.  
  1348.   TWMMDINext = packed record
  1349.     Msg: Cardinal;
  1350.     Child: HWND;
  1351.     Next: Longint;
  1352.     Result: Longint;
  1353.   end;
  1354.  
  1355.   TWMMDIRefreshMenu = TWMNoParams;
  1356.  
  1357.   TWMMDIRestore = packed record
  1358.     Msg: Cardinal;
  1359.     IDChild: HWND;
  1360.     Unused: Longint;
  1361.     Result: Longint;
  1362.   end;
  1363.  
  1364.   TWMMDISetMenu = packed record
  1365.     Msg: Cardinal;
  1366.     MenuFrame: HMENU;
  1367.     MenuWindow: HMENU;
  1368.     Result: Longint;
  1369.   end;
  1370.  
  1371.   TWMMDITile = packed record
  1372.     Msg: Cardinal;
  1373.     Tile: Longint; { MDITILE_HORIZONTAL, MDITILE_SKIPDISABLE,
  1374.                      MDITILE_VERTICAL }
  1375.     Unused: Longint;
  1376.     Result: Longint;
  1377.   end;
  1378.  
  1379.   TWMMeasureItem = packed record
  1380.     Msg: Cardinal;
  1381.     IDCtl: HWnd;
  1382.     MeasureItemStruct: PMeasureItemStruct;
  1383.     Result: Longint;
  1384.   end;
  1385.  
  1386.   TWMMenuChar = packed record
  1387.     Msg: Cardinal;
  1388.     User: Char;
  1389.     Unused: Byte;
  1390.     MenuFlag: Word; { MF_POPUP, MF_SYSMENU }
  1391.     Menu: HMENU;
  1392.     Result: Longint;
  1393.   end;
  1394.  
  1395.   TWMMenuSelect = packed record
  1396.     Msg: Cardinal;
  1397.     IDItem: Word;
  1398.     MenuFlag: Word; { MF_BITMAP, MF_CHECKED, MF_DISABLED, MF_GRAYED,
  1399.                       MF_MOUSESELECT, MF_OWNERDRAW, MF_POPUP, MF_SEPARATOR,
  1400.                       MF_SYSMENU }
  1401.     Menu: HMENU;
  1402.     Result: Longint;
  1403.   end;
  1404.  
  1405.   TWMMouseActivate = packed record
  1406.     Msg: Cardinal;
  1407.     TopLevel: HWND;
  1408.     HitTestCode: Word;
  1409.     MouseMsg: Word;
  1410.     Result: Longint;
  1411.   end;
  1412.  
  1413.   TWMMouseMove = TWMMouse;
  1414.  
  1415.   TWMMove = packed record
  1416.     Msg: Cardinal;
  1417.     Unused: Integer;
  1418.     case Integer of
  1419.       0: (
  1420.         XPos: Smallint;
  1421.         YPos: Smallint);
  1422.       1: (
  1423.         Pos: TSmallPoint;
  1424.         Result: Longint);
  1425.   end;
  1426.  
  1427.   TWMNCActivate = packed record
  1428.     Msg: Cardinal;
  1429.     Active: BOOL;
  1430.     Unused: Longint;
  1431.     Result: Longint;
  1432.   end;
  1433.  
  1434.   TWMNCCalcSize = packed record
  1435.     Msg: Cardinal;
  1436.     CalcValidRects: BOOL;
  1437.     CalcSize_Params: PNCCalcSizeParams;
  1438.     Result: Longint;
  1439.   end;
  1440.  
  1441.   TWMNCCreate = packed record
  1442.     Msg: Cardinal;
  1443.     Unused: Integer;
  1444.     CreateStruct: PCreateStruct;
  1445.     Result: Longint;
  1446.   end;
  1447.  
  1448.   TWMNCDestroy = TWMNoParams;
  1449.  
  1450.   TWMNCHitTest = packed record
  1451.     Msg: Cardinal;
  1452.     Unused: Longint;
  1453.     case Integer of
  1454.       0: (
  1455.         XPos: Smallint;
  1456.         YPos: Smallint);
  1457.       1: (
  1458.         Pos: TSmallPoint;
  1459.         Result: Longint);
  1460.   end;
  1461.  
  1462.   TWMNCHitMessage = packed record
  1463.     Msg: Cardinal;
  1464.     HitTest: Longint;
  1465.     XCursor: Smallint;
  1466.     YCursor: Smallint;
  1467.     Result: Longint;
  1468.   end;
  1469.  
  1470.   TWMNCLButtonDblClk = TWMNCHitMessage;
  1471.   TWMNCLButtonDown   = TWMNCHitMessage;
  1472.   TWMNCLButtonUp     = TWMNCHitMessage;
  1473.   TWMNCMButtonDblClk = TWMNCHitMessage;
  1474.   TWMNCMButtonDown   = TWMNCHitMessage;
  1475.   TWMNCMButtonUp     = TWMNCHitMessage;
  1476.   TWMNCMouseMove     = TWMNCHitMessage;
  1477.  
  1478.   TWMNCPaint = packed record
  1479.     Msg: Cardinal;
  1480.     RGN: HRGN;
  1481.     Unused: Longint;
  1482.     Result: Longint;
  1483.   end;
  1484.  
  1485.   TWMNCRButtonDblClk = TWMNCHitMessage;
  1486.   TWMNCRButtonDown   = TWMNCHitMessage;
  1487.   TWMNCRButtonUp     = TWMNCHitMessage;
  1488.  
  1489.   TWMNextDlgCtl = packed record
  1490.     Msg: Cardinal;
  1491.     CtlFocus: Longint;
  1492.     Handle: WordBool;
  1493.     Unused: Word;
  1494.     Result: Longint;
  1495.   end;
  1496.  
  1497.   TWMNotify = packed record
  1498.     Msg: Cardinal;
  1499.     IDCtrl: Longint;
  1500.     NMHdr: PNMHdr;
  1501.     Result: Longint;
  1502.   end;
  1503.  
  1504.   TWMNotifyFormat = packed record
  1505.     Msg: Cardinal;
  1506.     From: HWND;
  1507.     Command: Longint;
  1508.     Result: Longint;
  1509.   end;
  1510.  
  1511.   TWMPaint = packed record
  1512.     Msg: Cardinal;
  1513.     DC: HDC;
  1514.     Unused: Longint;
  1515.     Result: Longint;
  1516.   end;
  1517.  
  1518.   TWMPaintClipboard = packed record
  1519.     Msg: Cardinal;
  1520.     Viewer: HWND;
  1521.     PaintStruct: THandle;
  1522.     Result: Longint;
  1523.   end;
  1524.  
  1525.   TWMPaintIcon = TWMNoParams;
  1526.  
  1527.   TWMPaletteChanged = packed record
  1528.     Msg: Cardinal;
  1529.     PalChg: HWND;
  1530.     Unused: Longint;
  1531.     Result: Longint;
  1532.   end;
  1533.  
  1534.   TWMPaletteIsChanging = packed record
  1535.     Msg: Cardinal;
  1536.     Realize: HWND;
  1537.     Unused: Longint;
  1538.     Result: Longint;
  1539.   end;
  1540.  
  1541.   TWMParentNotify = packed record
  1542.     Msg: Cardinal;
  1543.     case Event: Word of
  1544.       WM_CREATE, WM_DESTROY: (
  1545.         ChildID: Word;
  1546.         ChildWnd: HWnd);
  1547.       WM_LBUTTONDOWN, WM_MBUTTONDOWN, WM_RBUTTONDOWN: (
  1548.         Value: Word;
  1549.         XPos: Smallint;
  1550.         YPos: Smallint);
  1551.       0: (
  1552.         Value1: Word;
  1553.         Value2: Longint;
  1554.         Result: Longint);
  1555.   end;
  1556.  
  1557.   TWMPaste = TWMNoParams;
  1558.  
  1559.   TWMPower = packed record
  1560.     Msg: Cardinal;
  1561.     PowerEvt: Longint; { PWR_SUSPENDREQUEST, PWR_SUSPENDRESUME,
  1562.                          PWR_CRITICALRESUME }
  1563.     Unused: Longint;
  1564.     Result: Longint;
  1565.   end;
  1566.  
  1567.   TWMQueryDragIcon = TWMNoParams;
  1568.  
  1569.   TWMQueryEndSession = packed record
  1570.     Msg: Cardinal;
  1571.     Source: Longint;
  1572.     Unused: Longint;
  1573.     Result: Longint;
  1574.   end;
  1575.  
  1576.   TWMQueryNewPalette = TWMNoParams;
  1577.   TWMQueryOpen = TWMNoParams;
  1578.   TWMQueueSync = TWMNoParams;
  1579.  
  1580.   TWMQuit = packed record
  1581.     Msg: Cardinal;
  1582.     ExitCode: Longint;
  1583.     Unused: Longint;
  1584.     Result: Longint;
  1585.   end;
  1586.  
  1587.   TWMRButtonDblClk = TWMMouse;
  1588.   TWMRButtonDown = TWMMouse;
  1589.   TWMRButtonUp = TWMMouse;
  1590.  
  1591.   TWMRenderAllFormats = TWMNoParams;
  1592.  
  1593.   TWMRenderFormat = packed record
  1594.     Msg: Cardinal;
  1595.     Format: Longint;
  1596.     Unused: Longint;
  1597.     Result: Longint;
  1598.   end;
  1599.  
  1600.   TWMSetCursor = packed record
  1601.     Msg: Cardinal;
  1602.     CursorWnd: HWND;
  1603.     HitTest: Word;
  1604.     MouseMsg: Word;
  1605.     Result: Longint;
  1606.   end;
  1607.  
  1608.   TWMSetFocus = packed record
  1609.     Msg: Cardinal;
  1610.     FocusedWnd: HWND;
  1611.     Unused: Longint;
  1612.     Result: Longint;
  1613.   end;
  1614.  
  1615.   TWMSetFont = packed record
  1616.     Msg: Cardinal;
  1617.     Font: HFONT;
  1618.     Redraw: WordBool;
  1619.     Unused: Word;
  1620.     Result: Longint;
  1621.   end;
  1622.  
  1623.   TWMSetHotKey = packed record
  1624.     Msg: Cardinal;
  1625.     Key: Longint;
  1626.     Unused: Longint;
  1627.     Result: Longint;
  1628.   end;
  1629.  
  1630.   TWMSetIcon = packed record
  1631.     Msg: Cardinal;
  1632.     BigIcon: Longbool;
  1633.     Icon: HICON;
  1634.     Result: Longint;
  1635.   end;
  1636.  
  1637.   TWMSetRedraw = packed record
  1638.     Msg: Cardinal;
  1639.     Redraw: Longint;
  1640.     Unused: Longint;
  1641.     Result: Longint;
  1642.   end;
  1643.  
  1644.   TWMSetText = packed record
  1645.     Msg: Cardinal;
  1646.     Unused: Longint;
  1647.     Text: PChar;
  1648.     Result: Longint;
  1649.   end;
  1650.  
  1651.   TWMShowWindow = packed record
  1652.     Msg: Cardinal;
  1653.     Show: BOOL;
  1654.     Status: Longint;
  1655.     Result: Longint;
  1656.   end;
  1657.  
  1658.   TWMSize = packed record
  1659.     Msg: Cardinal;
  1660.     SizeType: Longint; { SIZE_MAXIMIZED, SIZE_MINIMIZED, SIZE_RESTORED,
  1661.                          SIZE_MAXHIDE, SIZE_MAXSHOW }
  1662.     Width: Word;
  1663.     Height: Word;
  1664.     Result: Longint;
  1665.   end;
  1666.  
  1667.   TWMSizeClipboard = packed record
  1668.     Msg: Cardinal;
  1669.     Viewer: HWND;
  1670.     RC: THandle;
  1671.     Result: Longint;
  1672.   end;
  1673.  
  1674.   TWMSpoolerStatus = packed record
  1675.     Msg: Cardinal;
  1676.     JobStatus: Longint;
  1677.     JobsLeft: Word;
  1678.     Unused: Word;
  1679.     Result: Longint;
  1680.   end;
  1681.  
  1682.   TWMStyleChange = packed record
  1683.     Msg: Cardinal;
  1684.     StyleType: Longint;
  1685.     StyleStruct: PStyleStruct;
  1686.     Result: Longint;
  1687.   end;
  1688.  
  1689.   TWMStyleChanged = TWMStyleChange;
  1690.   TWMStyleChanging = TWMStyleChange;
  1691.  
  1692.   TWMSysChar = TWMKey;
  1693.   TWMSysColorChange = TWMNoParams;
  1694.  
  1695.   TWMSysCommand = packed record
  1696.     Msg: Cardinal;
  1697.     case CmdType: Longint of
  1698.       SC_HOTKEY: (
  1699.         ActivateWnd: HWND);
  1700.       SC_KEYMENU: (
  1701.         Key: Word);
  1702.       SC_CLOSE, SC_HSCROLL, SC_MAXIMIZE, SC_MINIMIZE, SC_MOUSEMENU, SC_MOVE,
  1703.       SC_NEXTWINDOW, SC_PREVWINDOW, SC_RESTORE, SC_SCREENSAVE, SC_SIZE,
  1704.       SC_TASKLIST, SC_VSCROLL: (
  1705.         XPos: Smallint;
  1706.         YPos: Smallint;
  1707.         Result: Longint);
  1708.   end;
  1709.  
  1710.   TWMSysDeadChar = packed record
  1711.     Msg: Cardinal;
  1712.     CharCode: Word;
  1713.     Unused: Word;
  1714.     KeyData: Longint;
  1715.     Result: Longint;
  1716.   end;
  1717.  
  1718.   TWMSysKeyDown = TWMKey;
  1719.   TWMSysKeyUp = TWMKey;
  1720.  
  1721.   TWMSystemError = packed record
  1722.     Msg: Cardinal;
  1723.     ErrSpec: Word;
  1724.     Unused: Longint;
  1725.     Result: Longint;
  1726.   end;
  1727.  
  1728.   TWMTimeChange = TWMNoParams;
  1729.  
  1730.   TWMTimer = packed record
  1731.     Msg: Cardinal;
  1732.     TimerID: Longint;
  1733.     TimerProc: TFarProc;
  1734.     Result: Longint;
  1735.   end;
  1736.  
  1737.   TWMUIState = packed record
  1738.     Msg: Cardinal;
  1739.     Action: Word;
  1740.     Flags: Word;
  1741.     Unused: Longint;
  1742.   end;
  1743.  
  1744.   TWMChangeUIState = TWMUIState;
  1745.   TWMUpdateUIState = TWMUIState;
  1746.   TWMQueryUIState = TWMNoParams;
  1747.  
  1748.   TWMUndo = TWMNoParams;
  1749.  
  1750.   TWMVKeyToItem = TWMCharToItem;
  1751.  
  1752.   TWMVScroll = TWMScroll;
  1753.  
  1754.   TWMVScrollClipboard = packed record
  1755.     Msg: Cardinal;
  1756.     Viewer: HWND;
  1757.     ScollCode: Word;
  1758.     ThumbPos: Word;
  1759.     Result: Longint;
  1760.   end;
  1761.  
  1762.   TWMWindowPosChanged = TWMWindowPosMsg;
  1763.   TWMWindowPosChanging = TWMWindowPosMsg;
  1764.  
  1765.   TWMWinIniChange = packed record
  1766.     Msg: Cardinal;
  1767.     Unused: Integer;
  1768.     Section: PChar;
  1769.     Result: Longint;
  1770.   end;
  1771.  
  1772.   TWMSettingChange = packed record
  1773.     Msg: Cardinal;
  1774.     Flag: Integer;
  1775.     Section: PChar;
  1776.     Result: Longint;
  1777.   end;
  1778.  
  1779.   TWMHelp = packed record
  1780.     Msg: Cardinal;
  1781.     Unused: Integer;
  1782.     HelpInfo: PHelpInfo;
  1783.     Result: Longint;
  1784.   end;
  1785.  
  1786.   TWMDisplayChange = packed record
  1787.     Msg: Cardinal;
  1788.     BitsPerPixel: Integer;
  1789.     Width: Word;
  1790.     Height: Word;
  1791.     Result: Longint;
  1792.   end;
  1793.  
  1794.   TWMContextMenu = packed record
  1795.     Msg: Cardinal;
  1796.     hWnd: HWND;
  1797.     case Integer of
  1798.       0: (
  1799.         XPos: Smallint;
  1800.         YPos: Smallint);
  1801.       1: (
  1802.         Pos: TSmallPoint;
  1803.         Result: Longint);
  1804.   end;
  1805.  
  1806. implementation
  1807.  
  1808. end.
  1809.